unit About;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, Vcl.Imaging.pngimage;

type
  TAboutFrm = class(TForm)
    Label2: TLabel;
    ButtonOK: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    EditProductName: TEdit;
    EditVersion: TEdit;
    EditUpDateTime: TEdit;
    EditProgram: TEdit;
    EditWebSite: TEdit;
    EditBbsSite: TEdit;
    Image1: TImage;
    procedure ButtonOKClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure Open();
  end;

var
  AboutFrm: TAboutFrm;

implementation
uses  Grobal2;
{$R *.dfm}

procedure TAboutFrm.Open();
var
  sProductName: string;
  sVersion: string;
  sUpDateTime: string;
  sProgram: string;
  sWebSite: string;
  sBbsSite: string;
begin
  EditProductName.Text := g_sProductName6;
  EditVersion.Text := g_sVersion;
  EditUpDateTime.Text := g_sUpDateTime;
  EditProgram.Text := g_sProgram;
  EditWebSite.Text := g_sWebSite;
  EditBbsSite.Text := g_sBbsSite;
  ShowModal;
end;
procedure TAboutFrm.ButtonOKClick(Sender: TObject);
begin
  Close;
end;

procedure TAboutFrm.FormDestroy(Sender: TObject);
begin
  AboutFrm:= nil;
end;

procedure TAboutFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CaFree;
end;

end.
